home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
vol11n08.zip
/
LENGT1.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-10-14
|
323b
|
19 lines
@ECHO OFF
REM LENGTH1.BAT
IF '%1'=='' GOTO help
IF NOT '%2'=='' GOTO setn
ECHO %1■> LENGTH1.TXT
EDLIN LENGTH1.TXT < LENGTH.SCR > NUL
COPY LENGTH1.TXT+,, /B > NUL
DIR LENGTH1.TXT | FIND /V "e" > L.BAT
CALL L
DEL LENGTH1.TXT
DEL L.BAT
GOTO end
:setn
SET N=%2
GOTO end
:help
ECHO Usage: length1 string
:end